;batch /date=5-may-78/time=1200/do @bat↔
AL AL,HE↔

;SEND ARG STARTING↔

COM ALSAI(XHR)/COM↔
↓
λ
SAV ALSAI↔
 
ru alsai↔
pass3←pass3↔
↓
λ
do fraid↔
pass3↔
≠≠≠E↔

ru alsai↔
gobble←gobble↔
↓
λ
do fraid↔
gobble↔
≠≠≠E↔

ru alsai↔
wldmod←wldmod↔
↓
λ
do fraid↔
wldmod↔
≠≠≠E↔

ru alsai↔
exprs←exprs↔
↓
λ
do fraid↔
exprs↔
≠≠≠E↔

ru alsai↔
tcalc←tcalc↔
↓
λ
do fraid↔
tcalc↔
≠≠≠E↔

ru alsai↔
alprin←alprin↔
↓
λ
do fraid↔
alprin↔
≠≠≠E↔

com emiter(h)/com↔ 
↓
λ
com intdef(h)/com↔
↓
λ
com arith(h)/com↔ 
↓
λ
com alrec(h)/com↔ 
↓
λ
com armsol.sai(h)/com↔ 
↓
λ
COM ALC(h)/com↔ 
↓
λ

;REN ALC.OLD←ALC.DMP↔

R LOADER↔
ALC≠
λ
SETUWP↔
SSAVE ALCNEW[al,he]↔

;COMP AL.PAL/COMP↔

AL tmp,ARG↔
COMP MOVARM.AL[TMP,ARG](KIN)/COMP↔
↓
↓
λ
COMP DECIDE.AL[AL,ARG](KN)/COMP↔
↓
↓
λ
;COMP FIB.AL[TMP,ARG](KN)/COMP↔
;↓
;↓
;λ
;COMP HANOI.AL[AL,ARG](KN)/COMP↔
;↓
;↓
;λ
;;COMP PVALVE.AL[DM2,MSM](KN)/COMP↔
;COMP CLICK.AL[AL,ARG](KN)/COMP↔
;↓
;↓
;λ
;COMP RETRY.AL[TMP,MSM](KN)/COMP↔
;↓
;↓
;λ
;
;DEL *.ALV,*.ALT↔

MAIL ARG all done - CHECK BAT0.LOG[1,ARG]↔

DA 0↔
TI↔